﻿Imports VN.INS.DL.DH
Imports VN.INS.BL.BE
Public Class CambioContrasenaDA
    Public Sub CAMBIACONTRASEÑA(ByVal P As String, ByVal U As String)
        Dim objData As AdministradorOracle = New AdministradorOracle
        Dim objDt As String = "EDITACONTRASEÑA"

        Try
            objData = New AdministradorOracle
            objData.CreateInputOracle("P", P, 50)
            objData.CreateInputOracle("U", U, 8)
            objData.ExecuteOracle_NonQuery("EDITACONTRASEÑA", "Conexion.Oracle")

        Catch ex As Exception

        End Try


    End Sub



End Class
